home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / pqmenu.zip / PQMENU.BI < prev    next >
Text File  |  1992-02-22  |  696b  |  18 lines
  1.   TYPE MenuItems
  2.     titles AS STRING * 10
  3.     items AS STRING * 250
  4.     HotKey AS STRING * 25
  5.     position AS INTEGER
  6.   END TYPE
  7.   TYPE ColorBarPos
  8.     ULR AS INTEGER
  9.     ulc AS INTEGER
  10.     LRR AS INTEGER
  11.     lrc AS INTEGER
  12.   END TYPE
  13.   DECLARE SUB GetKey4 (mouse%, asccode%, scancode%, click%, rgt%, special%)
  14.   DECLARE FUNCTION largest (picks$(), count%)
  15.   DECLARE SUB ShowMenu (Element%, PullDown() AS MenuItems, NumberOfTitles%, bar%, mencol%, frame%, framecolor%, Inact%, KeyColor%, RevKeyColor%, mbar() AS ColorBarPos, choice$)
  16.   DECLARE SUB MENU (PullDown() AS MenuItems, MenuColor%, frame%, framecolor%, TEXTCOLOR%, HotKeyColor%, BarColor%, Inactive%, choice$, click%)
  17.  
  18.